library(ggplot2)
library(intgrr)

grr.getAllData <- function(x,k,n,r,sig,tole) {
    xbarValue <<- round(GRRXbar(x,k,n,r), bitNum)
    rangeValue <<- round(GRRRange(x,k,n,r), bitNum)
    appValue <<- round(as.vector(t(GRRAppraiser(x,k,n,r))), bitNum)
    partValue <<- round(as.vector(t(GRRPart(x,k,n,r))), bitNum)

    aplotValue <<- round(GRRPAPlot(x,k,n,r), bitNum)
    componentValue <<- round(GRRComponent(x,k,n,r,sig,tole), bitNum)
}
eval(parse(text=funName))